<?php
//C:\xampp\htdocs\mam\spam\runspam.php
set_time_limit(6240); 
$o = 1;
$path = "C:/xampp/htdocs/mam/spam";
$pathd = "C:/xampp/htdocs/mam/spam/data";
$file_word = "C:/xampp/htdocs/mam/spam/huiri.txt";
$dh = opendir($pathd); //เป็น Function แสดงไฟล์ในไดเรคทอรี่ (List Directory)
while (($fh = readdir($dh)) !== false) {  //readdir(ไดเร็กทอรีที่ได้จากการเปิดไดเร็กทอรี ),ใช้อ่านข้อมูลในไดเร็กทอรี
	if($fh !="." && $fh != ".."){
		if(is_dir("$pathd/$fh")){ //ตรวจสอบฟอร์เดอร์ ว่ามีอยู่จริงหรือไม่
			$dhfh = opendir("$pathd/$fh"); 
			while (($id = readdir($dhfh)) !== false) {
				if($id !="." && $id != ".."){
					echo "$o/$pathd/$fh/$id <br>";
					$o = $o+1;
					if(file_exists("$pathd/$fh/$id")){
						$fp = fopen("$pathd/$fh/$id","r");		
						while($buff = fgets($fp,127000)){ //อ่านข้อมูลจากไฟล์ออกมาต่อเนื่องกันเป็นข้อความ โดยสามารถกำหนดความยาวของข้อความได้
							list($index, $date_old, $title_old, $detail_old, $picture_old, $update_old,$time_old,$comment_old,$formem_old,$status_old,$displaystatus_old,$oblog_old,$statusid_old,$tag,$tag2,$tag3) = explode("\t",$buff);
							if($index !=""){
								$nameid = substr($id,0,-4);
								 
								$data = $title_old.$detail_old;
								$data = str_replace(' ','',$data);
								$data = preg_replace('|[\!\@\#\$\%\^\&\*\(\)\-\=\_\+\[\]\{\}\;\'\:\"\,\.\<\>\/\?\\\\\|\~\�\�\n\r ]|', '', $data);
								//echo $data; exit;
								$fp2 = fopen($file_word,"r");
								while($word = fgets($fp2,1024)){
									$word = trim($word);
									$count_word = substr_count($data,$word);// นับจำนวนคำที่มีในสตริง
									/*
									 substr_count(string,substring,start,length)

									string คือ สตริง
									
									substring คือ คำที่ต้องการค้น
									
									start คือ ตำแหน่งเริ่มค้น
									
									length คือ กำหนดความยาวในการค้น
									 */
									if($count_word >= 1){
										$fp4 = fopen("$path/word/".$word.".txt","a"); 
										$fp3 = fopen("$path/data_split/".$fh."_".$nameid."_".$index.".txt","a");
										fputs($fp4,$fh."_".$nameid."_".$index."\t".$count_word."\n");
										fputs($fp3,$word."\t".$count_word."\n");
										fclose($fp4);
										fclose($fp3);
									}
								}
							}
							
						}
					}

				}				
					
			}				
		}
	}
}
echo "<br>complete";
exit;

?>